﻿Imports System.ComponentModel
Imports DTO
Imports DAO

Public Class HeThongBUS

    Shared Function layDSHeThong(tu As String, den As String) As ComponentModel.BindingList(Of NhatKyDTO)
        tu = tu + " 00:00:00"
        den = den + " 23:00:00"
        Return HeThongDAO.layDSHeThong(tu, den)
    End Function

    Shared Function themNhatKy(maND As String, cn As String, hangDong As String, doituong As String) As Integer
        Dim nk As New NhatKyDTO
        nk.MaNguoiDung = maND
        nk.ChucNang = cn
        nk.HanhDong = hangDong
        nk.DoiTuong = doituong
        nk.MayTinh = System.Environment.MachineName
        nk.ThoiGian = DateTime.Now
        Return HeThongDAO.themNhatKy(nk)
    End Function

    Shared Function layTenSever() As String
        Return HeThongDAO.layTenSever()
    End Function

    Shared Function layDataBase() As String
        Return HeThongDAO.layDataBase()
    End Function

End Class
